home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00483.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  185 b   |  12 lines
  1. on mouseUp
  2.   global switch, q, drums, s
  3.   set switch to 0
  4.   puppetSprite(q, 0)
  5.   updateStage()
  6.   set drums to 0
  7.   set s to random(26)
  8.   do("sel" & s & EMPTY)
  9.   stretchy()
  10.   flick()
  11. end
  12.